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Introducción 


Si tienes un ordenador seguro que alguna vez has jugado a algún 
tipo de juego de Invasores. En este libro encontrarás un programa 


22 que te permitirá crear tu propio juego de “marcianos”. El 
= programa se da tanto para el sistema MSX como para е] 
ER 5% Spectrum. 


La efectividad de un juego de invasores se basa en los gräficos 
-- móviles. El principio es similar al que se utiliza en los dibujos 
animados: los caracteres antiguos son borrados de la pantalla 
> antes de imprimirlos en su nueva posiciön, logrando asi la 
impresión de movimiento. El programa ha sido desglosado en 
ES bloques lógicos, y un texto paralelo explica cómo funciona cada 
sección. Encontrarás, por ejemplo, cómo “sabe” el ordenador 
cuándo un invasor ha sido alcanzado por uno de tus misiles. El 
escribir un programa en bloques lógicos no sólo facilita su 
$ comprensión tanto al programador como a otras personas; 
эг саа tambien le hace rodar mäs räpido y reduce la posibilidad de 
er errores del mismo. Al finalizar alguno de los apartados puedes 
probar la secciön de programa que acabas de teclear (incluso el 
== ай error mäs pequefio puede hacer que el programa no funcione). Si 
=< algo falla, examina el listado con cuidado. Buscar fallos en un 
= programa es сото jugar а un juego де detectives; las pistas estän 
ahi para que las localices. 
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Caracteres definidos por 
el usuario 


Cada caräcter del teclado que pulses se imprime en la pantalla a 
base de puntos oscuros sobre una matriz de 8 por 8. Los 
caracteres que forman el teclado estän ya definidos en la memoria 
del ordenador. Sin embargo es posible definir nuestros propios 
caracteres. ¿Cómo hacerlo? 


MSX 

En el sistema MSX estos caracteres reciben el nombre de 
sprites. Una de las ventajas de este sistema frente a otros 
ordenadores es que podemos mover los sprites muy fácilmente 
por la pantalla, como luego veremos. La base de la definición de 
sprites es una matriz de 8 por 8 cuadrados sobre la cual 
sombreamos la figura deseada. El ejemplo que vamos a seguir es 
el invasor que se empleará en el juego. 


Para convertir la matriz en una expresión comprensible por el 
ordenador toma cada fila, empezando por la A, y suma los 
números correspondientes a los cuadrados sombreados. Por 
ejemplo la fila A tiene asociado el número 32+4=36. Para introducir 
el carácter en el ordenador teclea el programa inferior. 


SPRITE (I) es una variable de cadena especial empleada en la 
definición de sprites. El invasor ha sido asignado al plano de 
definición 1, según indica el argumento de dicha función. Los 
datos del programa corresponden a los valores de las filas A a H. 
En la siguiente sección veremos cómo situar el sprite en la 
pantalla. 


SCREEN 2,0 
20 FOR I=1 TO 8:READ N: A$=A$+CHR$ (N) : NEXT 
30 ЅРКІТЕФ (1) =АФ 

40 GOTO 49 
DATA 36, 36, 126, 255, 153, 255, 90, 66 


SPECTRUM 

En primer lugar diseña sobre el papel el carácter que quieres 
conseguir mediante una cuadrícula de 8 por 8. Sombrea los 
cuadros correspondientes para construir una figura; ésta puede 
tener cualquier forma. El Spectrum te permite describir hasta 21 
caracteres definidos por el usuario. El ejemplo que aquí 
mostramos es el invasor que se empleará en el juego. El 
ordenador asigna a cada cuadro el valor 0 6 1. El valor 1 
corresponde a un cuadrado sombreado en el gráfico, y 0 
corresponde a un cuadrado blanco. Toda la información que el 
ordenador necesita para construir el carácter debe presentarse de 
este modo. Cada fila de la cuadrícula que compone el carácter se 
define mediante una secuencia de ceros y unos o dígitos binarios 
(bits). Cuando se ruede el programa el ordenador almacenará 
cada fila como un paquete de ocho bits llamado byte. Las 
sentencias POKE alteran la posición de memoria a la que hacen 
referencia introduciendo el valor indicado. En nuestro caso este 
valor lo definimos en forma binaria mediante BIN. 


El ordenador interpreta los bytes como números binarios, que son 
almacenados en una parte especial de la memoria reservada para 
caracteres definidos por el usuario. Las direcciones 
correspondientes a estas posiciones de memoria comienzan en la 
32600 en el Spectrum de 16 K y en la 65368 en el de 48 K. Para 
introducir el invasor en el de 16 K modificarás las posiciones 
32600 a 32607 ambas inclusive; en el de 48 K e la 65368 a la 
65375. Una vez hecho ésto para dibujarlo en el centro de la 
pantalla teclea: 


RUN . 
@) PRINT AT 19,103 ы 


El # se obtiene poniendo el ordenador en modo gráfico 
(CAPS SHIFT y 9) y pulsando A. 


Principios de la animaciön 


MSX 


Hemos visto en el apartado anterior cömo definir un sprite, ahora 
veremos cömo situarlo y moverlo por la pantalla. Para localizar 
sprites emplearemos la siguiente sentencia: 


PUT SPRITE n° de plano, (X,Y), color 


Al asignar un nümero de plano conseguimos que los sprites de 
planos inferiores tengan una prioridad mayor que los superiores, 
de modo que en caso de superponerse las imágenes de los dos 
planos sólo se verá la del plano de más prioridad. El sprite se 
localizará en la pantalla donde indiquen las coordenadas (X,Y); 
estas se refieren a la esquina superior izquierda; sólo hay que 
destacar que si Y = 209 el sprite correspondiente desaparece de la 
pantalla. El color debe ser un número del 0 al 15 y selecciona el 
color del sprite. 


Borra la línea 40 y añade al programa anterior las siguientes 
sentencias: 


40 FOR I=@ TO 190 ۱ 
50 PUT SPRITE 1,(I,I),1 
68 NEXT 

70 GOTO 48 


Una de las principales ventajas de los sprites es que se pueden 
mover por la pantalla muy fácilmente. Para ello sólo hay que 
modificar las coordenadas X e Y; de esta forma el sprite será 
eliminado de su posición anterior y colocado en la nueva. 

En nuestro ejemplo el bucle entre las líneas 40 y 60 se encarga de 
alterar estas coordenadas en una unidad, y la línea 50 imprime el 
sprite en su nueva posición. De esta forma conseguiremos que el 
sprite se mueva diagonalmente por la pantalla. La línea 70 evita 
que una vez finalizado el programa regresemos al modo directo. 


SPECTRUM 

El efecto de movimiento lo conseguiremos imprimiendo una figura 
en la pantalla, borrändola y volviendola a imprimir en una posiciön 
contigua. Al repetir esta acciön la figura parece moverse 
rápidamente por la pantalla. El programa inferior demuestra este 
efecto. 


La letra X se mueve por la pantalla mediante el lazo FOR... 
NEXT de variable I. Los valores de esta localizan la “X”. Cuando 
la letra se mueve una posición a la derecha los espacios se 
mueven con ella. El carácter blanco de la izquierda se escribirá 
sobre la antigua X, borrándola de la pantalla. 


CLS 
20 FOR 1-9 TO 29 
50 PRINT АТ و1 وت‎ x ۳ 
40 FOR D=1 TO SƏ:NEXT D 
NEXT 1 


En la línea 40 se introduce un pequeño bucle de retardo; sin él el 
ordenador ejecutaría el movimiento tan rápido que sería imposible 
seguirlo. 


En el juego de los invasores emplearemos los mismos principios 
de animación que acabas de ver para conseguir que los 
alienígenas se muevan por la pantalla. 


El organigrama 


A la hora de planificar el juego es una buena idea hacer un 
organigrama. Este es el modo oportuno de establecer la secuencia 
de pasos lógicos que definen tu programa. Consiste en cajas de 
diferentes formas que representan decisiones, acciones, etcétera y 
que se conectan entre sí mediante “líneas de flujo”. El 
organigrama se emplea para crear el programa de control. Este es 
el núcleo del programa, que llama a otras secciones del mismo 
cuando son necesarias. 
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EL PROGRAMA DE 
CONTROL YLA 
INICIALIZACION 


El programa de control muestra la estructuraciön del programa, 
empleando una serie de bloques lógicos llamados subrutinas. Estas 
están agrupadas en el organigrama para mostrar su secuencia de 
ejecución. La primera sección del programa se encarga de presentar 
en pantalla las instrucciones del juego. 


Eres un piloto solitario encargado 
de proteger el planeta Tierra. 
En unos instantes estarás bajo el 
ataque de invasores del planeta 
argón. 


Tu misión es evitar que aterricen 
las naves vargonianas. 


Emplea el cursor para mover tu nave. 


Pulsa la barra espaciadora para 
disparar el láser. 


Pulsa cualquier tecla para entablar 
combate con el enemigo. 
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REM Invasores 

GOSUB 8009:КЕМ Inicializar 

30 GOSUB 7000:REM Pantalla 

GOSUB 1000:КЕМ Alienigena 

59 GOSUB 2006:REM Jugador 

60 IF (GANAR OR PERDER)=1 THEN БОТО 70 ELSE GOTO 40 
IF GANAR=1 THEN GOSUB 569۵0۵: GOTO 40 

89 GOSUB #888: REM Perder 

90 END 
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Generalmente la linea inicial de un programa —10 en nuestro 
caso— se emplea para identificarle. En la programaciön de juegos 
los requisitos iniciales son mostrar en la pantalla las instrucciones 
e inicializar todas las variables que se emplearán en el juego. Todo 
ésto lo lleva a cabo la subrutina Inicializar, llamada en la línea 20. 
A continuación ejecutamos la subrutina Pantalla que se encarga 
de dibujar el escenario del fondo compuesto por estrellas y 
planetas; además, escribe el mensaje que nos indicará el número 
de alienígenas abatidos. 


Las líneas 40 a 60 constituyen el lazo principal del programa y 
contienen las subrutinas más empleadas en el mismo. La 
subrutina Alienígena consigue que cada invasor, elegido 
aleatoriamente, descienda por la pantalla. La subrutina Jugador 
permite que éste mueva su nave y ataque a los invasores con 
lásers. La línea 60 estudia si se ha ganado o se ha perdido, 
comprobando si alguno de los indicadores GANAR o PERDER 
están activados, en cuyo caso sale del lazo y salta a la línea 70. Si 
estos indicadores aún no se han activado volvemos al comienzo 
del lazo (línea 40). 


La línea 70 comprueba si el indicador GANAR está a 1, en cuyo 
caso llama a la subrutina Ganar, y tras ejecutarla el programa 
vuelve a la línea 40 preparado para renovar la pantalla de 
invasores. Si no se ha ganado el juego se llama a la subrutina 
Perder, que imprime en pantalla un mensaje e invita al jugador a 
intentarlo de nuevo. El programa finaliza en la línea 90 con la 
sentencia END. 


Antes de comenzar conviene estudiar sobre el papel cómo va a 
quedar la pantalla. En los ordenadores MSX la estructura de la 
misma depende del modo en que estemos operando. La primera 
pantalla de presentación opera en modo 0 (modo texto). La 
pantalla en este modo se compone de 24 líneas de 40 caracteres 
por línea. 


La primera subrutina que llama el programa es Inicializar definida 
a partir de la línea 8000, al final del listado. La razón de ponerla al 
final es que cada vez que se llama a una subrutina el ordenador 
estudia el programa desde el principio hasta encontrarla. Como 
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esta subrutina se utiliza una söla vez conviene ponerla al final, соп 
lo que evitaremos retardos inütiles en la ejecuciön del programa. 
Las líneas 8010 a 8130 presentan la primera pantalla; ésta indica al 
jugador en qué consiste el juego y cómo mover la nave y disparar 
al enemigo. 


La línea 8010 borra la pantalla estableciendo el color del fondo y 
borde en negro y el texto en blanco. Asimismo borra la línea que 
indica las teclas de función y desactiva el “click” de las teclas, que 
sería bastante molesto a la hora de actuar sobre los mandos de la 
nave. 


8000 REM Inicializar 
SCREEN 0,0,0:COLOR 15,1,1:КЕҮ OFF:CLS 
LOCATE 2,5,0: 
PRINT "ERES UN PILOTO SOLITARIO ENCARGADO" 
LOCATE 4,6,9: 
PRINT "DE PROTEGER EL PLANETA TIERRA." 
LOCATE &,7,9:PRINT "EN UNOS INSTANTES ESTARAS" 


LOCATE 9,9,0:PRINT "DEL PLANETA VARGON. " 
LOCATE 3,11,0: 

PRINT "TU MISION ES EVITAR QUE ATERRICEN" 
LOCATE 7,12,0:PRINT "LAS NAVES VARGONIANAS. " 
LOCATE 1,14,0: 

PRINT "EMPLEA EL CURSOR PARA MOVER TU NAVE" 


LOCATE 8,17,0:PRINT "PARA DISPARAR EL LASER” 
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LOCATE 4,20,0: 
PRINT "ENTABLAR COMBATE СОМ EL ENEMIGO" 
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LOCATE 5,8,0:PRINT "BAJO EL ATAQUE DE INVASORES" 


LOCATE 6,16,0:PRINT "PULSA LA BARRA ESPACIADORA" 


LOCATE 6,19,0:PRINT "PULSA CUALQUIER TECLA PARA" 
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ALIENS=INVAS: COLIS=0: AUX=1 
8159 DIM XC(INVAS):DIM YCINVAS) 
81609 FOR A=1 TO INVAS 
8170 X(A)=24*A: Y (A) = NIVEL 
NEXT A 


Mientras el jugador lee las instrucciones el ordenador puede 
seguir inicializando las variables empleadas en el juego. Esto se 
lleva a cabo en las líneas 8140 a 8180. En la primera se establecen 
además una serie de indicadores (flags); son variables que pueden 
ser activadas o desactivadas para indicar si una condición es 
verdadera o falsa. Así PERDER y GANAR se desactivan pues 
aún no se ha empezado a jugar. COLIS y AUX nos serán útiles 
cuando estudiemos si un misil ha colisionado con un alienígena. 
MAR será el marcador del juego e indicará el número de 
invasores destruidos. XP es la posición de la nave sobre el eje X 
de la pantalla y NIVEL la posición vertical desde la que 
comenzarán a descender los alienígenas. El número de ellos al 
comienzo del juego se establece mediante la variable INVAS, que 
permanece invariante a lo largo del juego. Se necesita una 
segunda variable ALIENS que contenga el número de alienígenas 
que quedan en cualquier momento del juego. 


La línea 8150 establece dos matrices X e Y en las que 
guardaremos la posición horizontal y vertical de cada alienígena 
—de ahí que se dimensionen al valor de INVAS. El bucle FOR... 
NEXT establece las posiciones iniciales de cada invasor. 


Las instrucciones siguientes definen la forma de los tres sprites 
empleados en el juego: el invasor, la nave y el misil. El 
procedimiento es el mismo seguido en la introducción (hemos 
reproducido también los datos necesarios para cada sprite). La 
sentencia 8230 es un recurso típico para detener la ejecución de 
un programa hasta que no se pulse una tecla. 


ON SPRITE GOSUB 4000:SPRITE OFF 
Q$=INPUTS$ (1) 
RETURN 


REM Datos sprites 
DATA 16,16,56,16,16,16,56,108:REM Misil 

DATA و15 و556 و16‎ 1985, 186, 186,238, 108: REM Nave 
DATA 36,356, 126, 255,153, 255, 70,66: REM Invasor 
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PERDER=9: GANAR=8: MAR=6: ХР=120: NIVEL=8: INVAS=1 


FOR 121 TO 8:READ N:M$=M$+CHR$ (N) : МЕХТ: КЕМ Misil 
FOR 1=1 TO 8:READ N: N$=N$+CHR$ (N) :NEXT:REM Nave 
FOR I=1 TO 8:READ N: A$=A$+CHR$ (N) :NEXT:REM Invasor 


La siguiente subrutina que llamaremos se encarga de establecer el 
fondo de la pantalla. En primer lugar pasa el ordenador al modo 2 
(modo gráfico) en el que tendremos una resolución de 256 por 192 
“pixels“ —puntos en la pantalla—, y establece el color del fondo y 
borde a negro y el de texto a blanco. Tras borrar la pantalla la 
línea 7020 establece los sprites correspondientes a la nave y el 
misil en los planos 11 y 12. La línea 7030 asigna a los planos 1 a 

10 sprites con la forma del invasor. 


El bucle 7040 a 7060 dibuja 60 estrella colocadas en puntos 
aleatorios de la pantalla y con uno de los colores disponibles 
—elegido también de forma aleatoria. Las líneas 7070 a 7100 se 
encargan de dibujar el resto de la pantalla. 


REM Pantalla 

SCREEN 2,0,0: COLOR 15,1,1:CLS 
SPRITE$(12)=N$:SPRITE$(11)=M$ 

FOR 1=1 TO 10:SPRITES(1)=A$: NEXT 

FOR S=i TO 69 

X=INT(RND (5) *250) : Y=INT {RND (5) #199) : 

PSET (X, Y) ,RND(1) +15 

NEXT 5 

CIRCLE (52,28),16,9:CIRCLE (44,28),16,9,4.95673, 
1.32645:PAINT (44,28),9 

CIRCLE (192,42),25,7: CIRCLE (180,42),24,7,4. 975675, 
1.52245: PAINT (180,42),7 

CIRCLE (0,192),60,10,0,-3.1459/2: 

LINE (0,192)-(60,192),10:PAINT (5,190),10,10 
PRESET (200,144), 4: 1۳۵۷۷ ۰652۳ 1 5۶52۳۱1 5۳۵۳ 1 6L8BR8G32 
В": РАІМТ (192,168),4,4 

ОРЕМ "БЕР: " AS #1: РКЕЅЕТ (32,9): 

PRINT #1, "INVASORES DESTRUIDOS: "; МАК 

RETURN 


La ültima parte de esta subrutina se encarga de imprimir el 
nümero de invasores. Como siempre para imprimir texto en 
pantallas gräficas usaremos el comando OPEN у el descriptor de 
periférico “GRP:”; PRESET posiciona el texto en el punto 
deseado y PRINT lo imprime. Al lado del mensaje aparecerá el 
valor actual de MAR, que cambiará a lo largo del programa. 
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SL A El programa de control llama a todas las subrutinas empleadas en 
el juego siguiendo un orden lógico. Cada subrutina es llamada 
mediante la instrucción GO SUB, seguida del número de línea 
correspondiente. Las declaraciones REM se emplean para 
recordar qué es lo que hace cada subrutina. 


REM Invasores 
O SUB 80900: REM Inicializar 


SUB 7000: REM Pantalla 
SUB 1999: REM Alienigena 
SUB 2000: REM Jugador 
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(ganar OR perder)=1 THEN GO TO 70 
TO 30 
ganar=1 THEN GO SUB 5000: GO TO 20 
SUB 6889: REM Perder 

CLS : PAPER 7: BORDER 7: INK Ө: STOP 
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Los requisitos iniciales en la programaciön de juegos consisten en 
presentar las instrucciones en la pantalla e inicializar las variables 
con los valores oportunos. La línea 5 da título al programa y la 
sentencia GO SUB de la línea 10 bifurca el mismo para que 
ejecute la subrutina de inicialización que comienza en la línea 
8000. La subrutina llamada en la línea 20 es la parte del programa 
que se encarga de dibujar las estrellas y escribir el número de 
alienígenas destruidos. 


Las líneas 30 a 60 constituyen un lazo contínuo y se pueden 
considerar el corazón del programa. La subrutina llamada en la 
línea 30 se encarga de avanzar los invasores en la pantalla. La 
línea 40 llama a una subrutina que permite al jugador moverse y 
disparar un misil a los invasores. La siguiente línea es una 
sentencia IF... THEN que estudia si se ha ganado o perdido. Si se 
cumple una de estas dos condiciones el programa sale del lazo y 
salta a la línea 70. De lo contrario la línea 60 hace que se repita el 
proceso de movimiento y disparo regresando a la línea 30. ganar 
y perder son simplemente indicadores —flags— que pueden 
activarse о desactivarse —1 ó 0-- cuando se verifiquen ciertas 
condiciones durante el juego. 


La línea 70 estudia si el flag ganar está a 1. Si lo está llama a la 
subrutina Ganar. Cuando esta finaliza el ordenador devuelve el 
control al programa y salta a la línea 20 para renovar la pantalla 
de invasores. Si en cambio está a 0, el programa llama a la 
subrutina Perder en la línea 80. El programa de control finaliza en 
la línea 90 con la instrucción STOP. 


Como puedes ver el programa principal es bastante corto y su 
efectividad se basa en el empleo de subrutinas encargadas de 
labores específicas. De esta forma la estructura del programa es 
mucho más clara y permite comprobar con sencillez cualquier tipo 
de fallo, así como introducir modificaciones en el mismo. 
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ANTES DE COMENZAR 
CONVIENE ESTUDIAR 
SOBRE EL PAPEL 

COMO VA A QUEDAR 
LA PANTALLA 


Antes de comenzar conviene plantear la pantalla sobre el papel. 
Esta se compone en el Spectrum de 22 lineas de 32 caracteres 
cada una; las columnas están numeradas de 0 a 31 hacia la 
derecha y las filas de 0 a 21 hacia abajo. 


La primera subrutina que llama el programa es Inicializar 

—línea 10—. Cada vez que se llama a una subrutina el ordenador 
comprueba el listado completo desde el principio hasta encontrar 
el número de línea requerido. Si una subrutina es llamada una sola 
vez, como es el caso, conviene definirla cerca del fin del 
programa, en esta ocasión en la línea 8000. Las líneas 8010 a 8125 
dibujan la primera pantalla, encargada de mostrar las 
instrucciones. Las teclas Z y X permiten al jugador mover la nave, 
y pulsando M se dispara un misil. Las instrucciones necesarias 
para conseguirlo se definirán en una sección posterior. 


REM Inicializar 

PAPER ۵: INK 7: BORDER ۵: CLS 

PRINT AT 1,4; "Еғеѕ un piloto solitario" 

PRINT AT 2,1;"protegiendo el planeta Tierra." 
PRINT AT 5,1; "Еп unos instantes estaras bajo" 
PRINT АТ 4,35; "е1 ataque de invasores del" 
PRINT АТ 5,9; "р1апеёа VARGON. " 

PRINT 6,43"Tu mision es evitar que” 

PRINT 7,03"aterricen las naves vargonianas." 
PRINT 10,23"”Z” MUEVE LA NAVE A LA ۳ 
PRINT 12,2s"”X” MUEVE LA NAVE A LA DCHA" 
PRINT 14,4; "PULSA 7M? PARA DISPARAR" 

PRINT 20,2;"Pulsa cualquier tecla раға" 
PRINT 21,0;"entablar combate con el enemigo” 


و و و و 9 
on‏ 


LET perder=0: LET ganar=6: LET puntos=®: 
LET colalien=0: LET colest=0: LET xp=16: 


LET altura=1: LET invasores=10: 
LET alienigenas=invasores 

DIM x(invasores): DIM y(invasores) 
FOR a=1 TO invasores 

LET х(а)таж3: LET y(a)=altura 
NEXT a 


Mientras el jugador lee las instrucciones, el ordenador puede 
continuar inicializando las variables empleadas en el juego. En la 
línea 8130 se establecen una serie de indicadores —flags—. Un 
flag puede ser “activado” —tomando el valor 1— o “desactivado” 
—tomando el valor 0—. Los flags perder y ganar se desactivan, 
pues el juego acaba de empezar. puntos representa el número 
de alienígenas abatidos. colalien y colest son dos flags que 
detectan si un misil ha colisionado con un alienígena o una 
estrella. xp es la posición de la nave del jugador sobre el eje X de 
la pantalla. altura es la posición vertical inicial de cada invasor 
respecto a la parte superior de la pantalla. El número de 
alienígenas se establece mediante la variable invasores. La 
variable alienígenas contendrá el número de invasores por 
derribar. 


Cada invasor lleva asociado un par de valores incluidos en sendas 
matrices unidimensionales. Así la instrucción DIM x (invasores) 
reserva espacio en memoria para la posición horizontal de cada 
invasor, y DIM y (invasores) hace lo propio con la posición 
vertical. Un bucle FOR... NEXT establece la posición horizontal 
inicial de cada uno de los diez invasores a un valor que va de 3 a 
30 incrementándose de 3 en 3 para abarcar toda la pantalla. 


El siguiente grupo de instrucciones define la forma del invasor. El 
programa es el creado en la página 9, en la sección de caracteres 
definidos por el usuario, y constituye las líneas 8180 a 8250. 


8180 POKE £5348,BIN 00100100 
8190 РОКЕ 65369,BIN 90190190 
8200 РОКЕ £5370,BIN 91111119 
8210 POKE 65371,BIN 11111111 
8220 POKE 65372,BIN 10011001 


8230 РОКЕ 65373,BIN 11111111 

8240 POKE 65374,BIN 01011010 

8250 POKE 65275,BIN 091000010 

8250 LET R$=INKEY$: IF R$="" THEN GO TO 8260 
8270 RETURN 
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En la linea 8260 INKEY explora el teclado para detectar la tecla 
pulsada, almacenando el resultado en R$; si no contiene nada 
(R$=" ”) no se ha pulsado ninguna. El ordenador repite el proceso 
hasta que se da un valor a la variable, en cuyo caso retorna al 

{ programa de control. Este sistema permite al jugador comenzar el 
juego con sólo pulsar una tecla del teclado. 


La siguiente subrutina que llamaremos dibuja el fondo de la 
pantalla. Esta es la segunda subrutina menos usada en el 
programa, de ahí que se defina la penúltima en el listado, 
comenzando en la línea 7000. Se encarga de dibujar un fondo de 
estrellas en puntos aleatorios cada vez que comienza el juego o 
cuando avanza la siguiente oleada de alienígenas una vez 
eliminada la anterior. 


En primer lugar se borran de la pantalla los textos o gráficos que 
hayan podido dejar las subrutinas anteriores, y un bucle FOR... 
NEXT dibuja aleatoriamente una serie de cuarenta estrellas. En la 
línea 7030 la función RND selecciona una posición de carácter de 


LA ESTRELLA SE 


a канк ы TEY ІЕМРКЕ EN LA 
forma aleatoria y dibuja en ella una estrella —un único “pixel”— ШІ и DENTRO 


en la misma posiciön para cada cuadrado. Mäs tarde, cuando se DEL CARÁCTER ELEGIDO 

dispare un misil y éste ocupe la misma posición de carácter que la ARBITRARIAMENTE. 

estrella, la borrará. Así pues es importante conocer la posición de EL MISIL ESTUDIA 

la misma de modo que pueda ser dibujada de nuevo cuando el ESTA POSICION PARA 
re: 39 Е AVERIGUAR SI VA А 

misil Һауа pasado. La recuperaciön de las estrellas perdidas se BORRAR ОМА 

lleva a cabo en otra secciön del programa. Los alienigenas en su ESTRELLA 

avance tambien borran estrellas, lo que sin embargo no se tiene 

en cuenta, ya que su efecto no llama tanto la atención, y el 

proceso de “recuperación de estrellas” retarda bastante el 


programa. 


CLS 


FOR s=1 TO 48 
PLOT 8*INT (RND*32),8*INT (RND*21)+10 


NEXT s 
INK 7: PRINT АТ 0,53” INVASORES DESTRUIDOS="5puntos 
RETURN 


La última parte de esta subrutina imprime la puntuación en la 
mitad de la línea superior de la pantalla. El valor de puntos 
cambia en el programa según se destruyen alienígenas. Como 
antes, la subrutina finaliza con una sentencia RETURN que indica 
al ordenador que debe volver al programa de control. 


b 
REM Pantalla 
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Prueba tu programa 


Puedes probar ahora la parte del programa que llevas escrita. 
Sigue las instrucciones que se indican abajo y obsevarás la 
pantalla de presentación. Al pulsar cualquier tecla obtendrás la 
segunda pantalla. Si el programa no funciona, o si ocurre algo 
raro revisa lo que has hecho con cuidado. Incluso el más pequeño 
error puede provocar que el programa no funcione. 


1. TECLEA LA LÍNEA PROVISIONAL 35 GOTO 35 Y PULSA (RETURN | 
мк 2. TECLEA RUN Y PULSA [RETURN] 

DEBERÍAS VER AHORA LA PANTALLA DE PRESENTACIÓN QUE SE MUESTRA д LA 
/ZQUIERDA. AL PULSAR CUALQUIER TECLA EL PROGRAMA CONTINUARA Y SE 
ESTABLECERA EL FONDO DE ESTRELLAS Y PLANETAS DE LA DERECHA, BORRA LA LÍNEA 
PROVISIONAL ANTES DE CONTINUAR CON LA SIGUIENTE SECCIÓN DEL TEXTO 


Eres un piloto solitario encargado 
de proteger el planeta Tierra. 
En unos instantes estarás bajo el 
ataque de invasores del planeta 
Vargón. 


Tu misión es evitar que aterricen 
las naves vargonianas. 


Emplea el cursor para mover tu nave. 


Pulsa la barrá espaciadora para 
disparar el láser. 


Pulsa cualquier tecla para entablar 
combate con el enemigo. 


1. INTRODUCE LA LÍNEA PROVISIONAL р STOP y Pulsa [ENTER] 
SPECTRUM , ¿SA У LUEGO 
DEBERÍAS VER AHORA LA A DE era) QUE SE MUESTRA A LA 
/ZQUIERDA. AL PULSAR CUALQUIER TECLA EL PROGRAMA CONTINUARÁ Y SE 
ESTABLECERA ELFONDO DE ESTRELLAS Y PLANETAS DE LA DERECHA. BORRA LA LINEA 
PROVISIONAL ANTES DE CONTINUAR CON LA SIGUIENTE SECCION DEL TEXTO 


Eres un piloto solitario protegiendo 
el planeta Tierra 


En unos instantes estarás bajo el 
ataque de invasores del planeta 
Vargon. 


Tu mision es evitar que aterricen 
las naves vargonianas. 


`Z MUEVE LA NAVE A LA IZDA. 
"X` MUEVE LA NAVE A LA DCHA. 


Pulsa `М' para disparar. 


Pulsa cualquier tecla para entablar 
combate con el enemigo. 
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La siguiente subrutina Alienigena se encarga de avanzar los 
invasores hacia la parte baja de la pantalla. Recuerda que en la 
subrutina Inicializar habiamos establecido las coordenadas 
iniciales de cada invasor. Como estamos en el segundo modo de 
pantalla —gräfico— trabajaremos sobre una cuadricula de 256 por 
192 pixels, pudiendo colocar cada sprite en cualquier lugar de la 
pantalla. No obstante, los movimientos de todos los sprites los 
haremos avanzando de 8 en 8 pixels; para ello simplemente 
cambiaremos las coordenadas del mismo y lo colocaremos en las 
nuevas como habiamos hecho en el capitulo introductorio. 


La linea 1010 selecciona un valor de R entre 1 y 10, que nos 
servirä para escoger el invasor. Si se ha escogido un alienigena 
cuya coordenada vertical tiene el valor 209 (valor escogido para 
representar un alienigena destruido que este ya fuera del juego) la 
subrutina finaliza. 


1000 REM Alienigena 
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1020 X(R)=X(R)+8* (INT (RND (1) *3)-1) 
1050 Y(R)=Y(R)+8 

1040 IF X(R)>248 THEN X(R)=248 
1050 IF X(R)<16 THEN ۷ )۳( 21 6 

1868 IF ۷ )۳( 2184 THEN PERDER=1 
1979 PUT SPRITE R,(X(R),Y(R)),5 
1888 RETURN 


Una vez escogido un alienígena válido, las líneas 1020 y 1030 
calculan sus nuevas coordenadas. Añadiremos un número 
aleatorio (-8, 0 и 8) al valor actual de la coordenada X(R) para 
variar su posición horizontal, e incrementaremos en 8 unidades el 
valor de Y(R). Con esto conseguiremos que el alienígena 
descienda y se desplace a su nueva posición 8 pixels a la 
izquierda, con la misma coordenada horizontal, u 8 pixels a la 
derecha respectivamente. 


Las líneas 1040 y 1050 aseguran que el alienígena no se salga de 
los límites que tiene asignados; éstos son las coordenadas 
horizontales 248 (por la derecha) y 16 (por la izquierda). Si un 
invasor desciende hasta la altura de la nave, la línea 1060 activa el 
flag PERDER, que indica que el juego ha terminado. Por último la 
línea 1070 coloca el sprite alienígena en su nueva posición. 


La subrutina Jugador permite mover la nave horizontalmente por 
la línea inferior de la pantalla. En la línea 2010 INKEY explora el 
teclado y asigna a R$ la tecla pulsada; caso de no pulsarse 
ninguna se le asigna una tecla cualquiera (X). Si la tecla pulsada 
es la barra espaciadora, la línea 2020 desvía el control a la 
subrutina 3000 que se encarga de disparar el láser. 


1010 R=INT(RND(1)*(INVAS))+1:1F Y(R)=209 THEN RETURN 


PARA MOVER A LA IZQUIERDA : 
INT(RND(1)*3)-1=-1 
PARA NO MOVERSE : 

INT (RND(1)*3)-1=0 
PARA MOVER ААА DERECHA : 
INT (RNDC(ı)*&3)-1=+1 
EL INVASOR DESCIENDE 
PUES AÑADIMOS 8 A 
LA COORDENADA Y 
(LINEA 1030) 
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2000 REM Jugador 
2010 R$=INKEY$: IF R$="" THEN КФ="Х" 

| 2020 IF R$=" " THEN GOSUB 3000: КЕМ Laser 

2030 IF ((ASC(R$)=29) AND XP>0) THEN XP=XP-8: 
IF XP<16 THEN XP=16 

2040 IF (ASC(R$)=28) AND XP<256 THEN XP=XP+8: 
IF XP>248 THEN XP=248 

2050 PUT SPRITE 12, (XP,184),8 

2060 RETURN 
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Las lineas 2030 y 2040 controlan el movimiento de la nave. Antes 
de cambiar su coordenada horizontal comprobaremos que se 
encuentra dentro de los limites impuestos (que lögicamente 
coinciden con los de los invasores). 


Cuando la tecla pulsada sea el cursor izquierdo, R$ tendrä el 
valor ASCII 29 y si XP es mayor que 16 decrementaremos su 
valor 8 unidades —linea 2030—. Andlogamente, si pulsamos el 
cursor derecho R$ tendrä el valor ASCII 28, у si esta dentro de 
los limites aumentaremos la posiciön horizontal en 8 unidades 
(linea 2040). Por ultimo, la linea 2050 coloca el sprite 
correspondiente a la nave en su nueva posiciön. 


La subrutina Laser comienza en la linea 3000 y es la encargada 
de dibujar el misil ascendiendo por la pantalla. Esto lo consigue de 
una forma muy simple. Una vez fijada la posiciön horizontal del 
misil —que coincide con la de la nave—, dibujaremos el sprite 
misil consecutivamente en la misma posiciön horizontal pero 
disminuyendo su posiciön vertical. La linea 3020 decrementa la 
posiciön vertical del misil en 8 unidades у la 3030 lo dibuja en la 
posiciön correspondiente. Por ultimo, la linea 3040 comprueba si 
el misil ha llegado a la parte superior de la pantalla, borrändolo en 
ese caso. De esta forma el bucle 3020-3060 consigue el 
movimiento ascendente. 


3888 REM Laser 

3010 YM=184: XM=XP:GOSUB 3500 

3020 YM=YM-8 

3030 PUT SPRITE و11‎ (ХМ,ҮМ),11 

3040 IF YM=8 THEN PUT SPRITE 11, (8,289) : AUX=1 : RETURN 

3050 IF AUX=1 THEN SPRITE ON 

3060 GOTO 3020 

5500 SOUND 0,128: SOUND 1,1:SOUND 2,0:SOUND 3,0: 
SOUND 4,0:SOUND 5,@:SOUND 6,1:SOUND 7,54: 
SOUND 8,16:SOUND 9,0:SOUND 10,0:SDUND 11,251: 
SOUND 12,10:SOUND 13,15 

3510 RETURN 


Ө 


© © 
89 © © © 


Ө 


Antes de continuar conviene explicar Іа linea 8220 de la subrutina 
Inicializar que hemos reservado a propösito para este apartado. 
ON SPRITE permite detectar cuändo se cruzan dos sprites en la 
pantalla, y si está activa la instrucción ON SPRITE se ejecuta 
inmediatamente la subrutina de tratamiento de esta interrupción. 
Pues bien, la línea 8220 indica que en caso de cruzarse dos sprites 
hay que ejcutar la subrutina que comienza en la línea 4000. 
SPRITE OFF desactiva por el momento este tipo de 
interrupciones. 


En su ascenso por la pantalla, el misil puede chocar con un 
alienígena, debiendo saltar a la subrutina de coincidencia de 
sprites. Cuando se ha disparado el misil hay que distinguir la 
coincidencia de dos sprites invasores —que no debe dar lugar a 
ningún efecto especial— de la coincidencia de un sprite invasor 
con un misil. Para ello emplearemos el flag AUX, que se pondrá a 
0 cuando los sprites que coinciden sean dos invasores. 


La subrutina de coincidencia de sprites comienza desactivando la 
interrupción ON SPRITE hasta que se ejecute el siguiente 
SPRITE ON. El flag COLIS indicará si ha habido o no colisión 


entre el misil y el invasor, de ahí que se inicialice a 0. 


LA POSICIÓN. INICIAL 

DEL MISIL COINCIDE 

CON LA DE LA NAVE. ۳ 

EL MISIL ASCENDERÄ EL MISIL ASCENDERÁ 

CONSERVANDO POR LA PANTALLA 

SU POSICION HASTA QUE CHOQUE 

HORIZONTAL CON UN ALIENÍGENA 
O ALCANCE LA 
PARTE SUPERIOR 
DE LA MISMA. 
NO PODRAS MOVER 
LA NAVE WI 
DISPARAR OTRO 
MISIL HASTA PUE 
ESTE HAYA 
DESAPARECIDO 


REM Coincidencia de sprites 

SPRITE OFF:COLIS=® 

FOR I=1 TO INVAS 

IF (X(1)<>XM OR ABS(YM-Y(1))>8) THEN GOTO 4050 
Y(1)=209:PUT SPRITE I, (0,209): I=INVAS:GDSUB 4500: 
COL 15-1 

NEXT 1 

AUX=COL IS 

IF COLIS=0 THEN RETURN 

AL IENS=AL IENS-1 : MAR=MAR+1 

IF ALIENS=0 THEN GANAR=1 

PRESET (200,0): COLOR 1:PRINT#1, MAR-1: 

PRESET (200,0): COLOR 15: PRINTH1,MAR 

RETURN 

SOUND 0,09: SOUND 1,0:SOUND 2,0: SOUND 3,0:SOUND 4,0: 
SOUND 5,0: SOUND 6,31:SOUND 7,7: SOUND 8,16: 
SOUND 9,16:SOUND 19,16:SOUND 11,0:SOUND 12,60: 
SOUND 13,0 

RETURN 
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A continuaciön, el bucle 4020-4050 compara las posiciones de 
todos los invasores con las del misil у determina si ha habido 
colisiön. En ese caso la linea 4040 borra el invasor, le asigna la 
coordenada 209 —invasor destruido— llama a la subrutina 4500 
que consigue el sonido de la explosiön у activa el flag COLIS. 
Para salir del bucle establece la variable I a su valor final INVAS. 
La linea 4060 asigna al flag AUX el valor de COLIS de modo que 
si no ha habido colisión —se habrá entrado en esta subrutina por 
coincidencia de dos invasores— AUX se encargará en la 
subrutina Láser de que se desactiven las interrupciones ON 
SPRITE que retardarían el ascenso del misil. 


Si ha habido colisión, el número de alienígenas se decrementa en 
uno y el marcador aumenta — línea 4080—. Si ya no quedan 
invasores se activa el flag GANAR. 4100 actualiza el marcador. 


CUANDO EL MISIL 
CHOCA сом UN 
ALIENIGENA SE 
ENTRA EN LA 
SUBRUTINA DE 
ATENCION A 

ON SPRITE 

QUE BORRA EL 
INVASOR у PRODUCE 
LA EXPLOSION. 

LA COORDENADA 
VERTICAL DE ESTE 
SE ALTERA PARA 
ELIMINARLE 

DEL JUEGO 


La subrutina Alienígena elige un invasor de forma aleatoria y lo 
pinta de negro; de esta forma permanece invisible en el fondo 
hasta que se calculan las nuevas coordenadas adyacentes y se 
vuelve a dibujar el alienígena en amarillo. La impresión de 
movimiento se consigue borrando el invasor y dibujándolo en una 
posición inferior a la anterior. La línea 1010 selecciona un número 
entero entre 1 y el valor de invasores. Este valor es almacenado 
en la variable r. El valor de r hace referencia a un alienígena en 
concreto. No obstante si se ha elegido un alienígena que resulta 
tener unas coordenadas verticales fuera de la pantalla —un 
alienígena “muerto”— la subrutina finaliza con una instrucción 
RETURN. Esto se explicará más detenidamente en la subrutina 
Impacto que describiremos más adelante. 


Cuando se escoge un alienígena correcto la línea 1020 lo borra de 
sus antiguas coordenadas, x(r), y(r). 


REM Alienigena 


RETURN 
1020 PAPER ۵: PRINT AT y(r),x(r)s" " 
1030 LET x(r)=x(r)+INT (RND*3)-1 
1040 LET y(r)=y(r)+1 
1050 IF x(r)>30 THEN LET x(r)=30 
1060 IF x(r)<1 THEN LET x(r>=1 
1979 IF y(r)=21 THEN LET perder=1 
1080 ІМК 6: PRINT AT y(tr),x(r)3 "а" 
1090 RETURN 


Las nuevas coordenadas se calculan en la línea 1030 mediante la 
función ЕМІ). Añadiremos un número aleatorio —1, 0 ó 1, al 
valor actual de x(r), para variar la posición horizontal, e 
incrementaremos en una unidad el valor de v(r). De esta forma 
conseguiremos que el alienígena se desplace a su nueva posición 
un espacio hacia abajo y a la izquierda, sin variar su posición 
horizontal, o abajo y a la derecha respectivamente. 


Las líneas 1050 y 1060 establecen los límites del valor de x(r) para 
asegurar que la posición horizontal del alienígena nunca pueda 
salirse de la pantalla (si no lo hiciéramos el programa finalizaría al 
intentar imprimir el invasor y el Spectrum daría un mensaje de 
error). La siguiente línea, 1070, estudia el valor de y(r). Si es igual 
a 21 el invasor ha alcanzado el fondo de la pantalla y se activa el 
flag perder. Se imprime ahora el alienígena en su nueva posición 
mediante la línea 1080. La figura del invasor es la definida en la 
página 9; sigue las instrucciones que se dieron allí para conseguir 
el carácter para tu listado. 


El movimiento conseguido en esta subrutina es doblemente 
aleatorio en cuanto a la elección del invasor y en cuanto a su 
nueva posición. De esta manera se consigue el efecto de descenso 
al azar necesario para este tipo de juegos en el que cualquier 
periodicidad disminuye su atractivo. 


1010 LET r=INT (RND#invasores)+1: IF y(r)=22 THEN 
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PARA MOVER ALA IZQUIERDA: 
INT (RNO ж 3)-1=-1 
PARA NO MOVERSE : 
INT(RND *£3)-1= O 
PARA MOVER A LA DERECHA ; 
INT (RND *3)-1=1 
EL INVASOR DESCIENDE 
PUES AÑADIMOS 8 A 
LA COORDENADA Y 
CLINEA 1040) 
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La siguiente subrutina que llama el programa principal permite al 
jugador mover su nave por la linea inferior de la pantalla. En la 
línea 2010 NKEY$ explora el teclado para ver si se ha pulsado 
una tecla, y almacena el resultado en 1$. La siguiente línea estudia 
esta variable, y si 1$ es “m” о “М” (con lo que aceptamos letras 
mayúsculas o minúsculas) se ejecuta la instrucción GOSUB 3000 
que es la subrutina que se encarga de disparar el misil y que luego 
definiremos. 


REM Jugador 

LET 1$=INKEY$ 

IF 1$="m" OR 1$="M" THEN GO SUB 3000: REM Laser 

IF (1$="z" OR 1$="Z") AND xp>® THEN LET xp=xp-1 

IF (1$="x" ОК 1$="X") AND xp<29 THEN LET xp=xp+1 
INK 2: PRINT AT 21,xp3" А" 

RETURN 


Las líneas 2030 y 2040 controlan el movimiento de la nave. Si 1$ 
es “z” о “Z” y la posición horizontal del jugador es mayor que 0, 
entonces se decrementa el valor de xp con lo que moveremos la 
nave hacia la izquierda. Si el valor de 1$ es “x”o “X” entonces la 
moveremos un espacio a la derecha. Los límites impuestos al 
valor de xp aseguran que esta coordenada nunca puede salirse de 
la pantalla. La expresión xp=xp-1 es muy usual en el lenguaje 
informático; en general significa que la variable es alterada en la 
cantidad especificada respecto a su valor en el instante de 
ejecución. En nuestro caso el valor de xp —la coordenada 


horizontal de la nave en la pantalla— se decrementa una unidad. 


La nave la representaremos mediante la letra A, que se imprime 
en la pentalla mediante los caracteres “A”, es decir, entre dos 
espacios en blanco. La misión de estos espacios es borrar la 
antigua A al mover la nave hacia la izquierda o la derecha, como 
vimos en la introducción. 


LA TECLA Z MUEVE LA LA TECLA X MUEVE 

NAVE (A) ALA IZQUIERDA LA NAVE (A) A LA 

HASTA LA COLUMNA 4 DERECHA HASTA LA 
COLUMNA 29 


5000 КЕМ Laser 
5019 LET ym=21: LET хт=хр+1 
3020 LET ym=ym-1 


5050 INK 7: PRINT АТ ym,xm3"!" 
3060 PAPER Ө: PRINT AT ym,xm3" " 


LET colest=9 
3080 IF colalien=1 THEN GO SUB 4000 
3090 IF ym=1 THEN RETURN 
3106 GO TO 3020 


өөө 
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La subrutina Läser comienza en la linea 3000. En primer lugar la 
línea 3010 establece las coordenadas iniciales del misil en las del 
jugador (ym, xm). Conseguiremos que el misil cruce la pantalla 
mediante un bucle que altera la posición vertical (ym) en una 
unidad cada vez. Dentro del bucle hay que estudiar si el misil va a 
borrar una estrella, en cuyo caso ésta debe ser restaurada tras su 
paso, o si va a interceptar un alienígena, debiendo pasar el control 
a la subrutina Impacto. Esto lo conseguimos mediante la función 
POINT, que estudia un pixel en concreto para ver si corresponde 
al color del fondo (0) 6 a otro (1). La línea 3030 estudia la posible 
coincidencia con una estrella, en cuyo caso se activa el flag 
colest. La línea 3040 comprueba un pixel que debería estar 
pintado si la posición correspondiente estuviera ocupada por un 
invasor, y actúa sobre el flag colalien en consecuencia. El misil se 
consigue mediante una exclamación (!) impresa en color blanco y 
borrada posteriormente con negro. Si el flag colest se ha 
activado, la estrella se dibuja de nuevo en su antigua posición. Si 
el flag colalien está a 1 el ordenador salta entonces a la subrutina 
Impacto que ahora describiremos. Por último, cuando ym=1, es 
decir, cuando el misil ha llegado a la parte superior de la pantalla, 
la subrutina finaliza con una sentencia RETURN. 


CUANDO UN MISIL 
COINCIDE CON UN 
CARACTER Ф0Е 
CONTIENE UNA 
ESTRELLA, ESTA 
DESAPARECE (42. 
UNA VEZ PUE EL 
MISIL ES BORRADO(2) 
н SEIMPRIME (4 ESTRELLA 
15 E EN LA MISMA 
POSICION (3) 


3030 IF POINT (xm#8, (21-ym)x8+2)=1 THEN LET colest=1 
3040 IF POINT (xm#8, (21-ym)#8+3)=1 THEN LET colalien=1 


3070 IF colest=1 THEN PLOT xm#8, (21-ym)x8+2: 


999909 


EL MISIL SUBIRA 
POR LA PANTALLA 
HASTA QUE 
INTERCEPTE UN 
ALIENÍGENA O 
ALCANCE LA PARTE 
SUPERIOR DELA | 
MISMA. NO PODRAS 
MOVER LA NAVE O 
DISPARAR OTRO 
MISIL HASTA QUE 
EL PRIMERO HAYA 
DESAPARECIDO 


Еп la subrutina Impacto se estudia сада invasor uno por uno 
mediante un bucle FOR... NEXT para ver si su posiciön coincide 
con la del misil. Si sus coordenadas x 6 у no son las mismas, el 
ordenador salta a la linea 4040 para pasar al siguiente alienigena. 
Sin embargo, cuando sus posiciones coinciden la linea 4030 
cambia la posición vertical del invasor de modo que éste pase a la 
fila 22 —fuera de la pantalla—. El alienígena se borra mediante el 
carácter en blanco asociado al misil. El bucle finaliza estableciendo 
el valor de a a su valor máximo (el número de invasores) ya que 
es una práctica poco recomendable saltar desde el interior de un 
bucle. 


4000 REM Impacto 

4010 FOR a=1 TO invasores 

4020 IF x(a)<>xm OR y(a)<>ym THEN GO TO 4040 

LET y(a)=22: LET a=invasores 

4040 NEXT a 

4050 LET alienigenas=alienigenas-i: LET puntos=puntos+i 
: LET colalien=9: LET ym=1 

4060 IF alienigenas=0 THEN LET ganar=1 

4070 INK 7: PRINT AT ۶,5 puntos 

4080 RETURN 
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La linea 4050 modifica la puntuaciön, nümero de alienigenas 
eliminados, y desactiva el flag colalien. Una vez que se ha 
ejecutado la subrutina Impacto debe finalizar el proceso de 
disparo, lo que se consigue cambiando el valor de ут a 1, con lo 
que concluirá la subrutina Láser. Las dos últimas líneas analizan 
si el juego ha acabado (cuando se hayan eliminado todos los 
invasores) e imprime el nuevo tanteo en la parte superior de la 
pantalla. 


El MISIL AVANZA POR 
LA PANTALLA y 51, 
DETECTA UN ALIENÍGENA 
EN LA SIGUIENTE POSICIÓN 
DE CARACTER REGISTRA 
UNA COLISION (ОУ 2). 


El MISIL BORRA EL 
ALIEWIGENA AL 

IM PR|MIRSE SOBRE EL 
(3) Y EL MISMO ES 
BORRADO MEDIANTE 
UN CARACTER EN 
BLANCO (4), 

PARA ELIMINAR EL 
INVASOR DEL JUEGO 
SE MODIFICA 

SU COORDENADA 
VERTICAL 


NANANA ۶ 8 6 6 6 Т 
۵ ب ف ه ۵ ب ه ه ه ه ۵ ۵ ۵ ۵ هه‎ 


Prueba tu programa 


secciones dei programa 


disparo an 


Puedes comprobar ahora las 
correspondientes a movimiento y 
capítulo final del libro. Sigue las 
amarillo. Deberias ser capaz de mover tu 
invasores en su descenso. Como antes, si recibes un 
compäral 


ites de pasar а! 
instrucciones del recu 


nave y atacar a 


error estudia todo lo que hayas tecleado y 
listados del libro. 


ages 


| 
INVASORES DESTRUIDOS=0 
= 


نت 


INVASORES DESTRUIDOS=0 


| . „+ 


MSX 


1. TECLEA LA LINEA PROVISIONAL | 
55 GOTO 4o YPULSA RETURN | 


2. TECLEA RUN Y PULSA 
RETURN 


5/ TODO ES CORRECTO 
DEBERIAS SER CAPAZ 

DE DISPARAR А Los 
ALIENIGENAS EN SU 
DESCENSO POR LA PANTALLA. 
BORRA LA LINEA 

PROVISIONAL ANTES 

DE CONTINUAR 


SPECTRUM 


1. INTRODUCE LA LINEA PROVISIONAL | 


45 Goro 30 y 


PULSA ENTER 


2. PULSA RUN 
Y LUEGO ENTER 


5/ TODO ES CORRECTO 
DEBERÍAS SER CAPAZ DE 
DISPARAR 4 LOS ALI IEWIGENAS | 
EN SU DESCENSO 

POR LA PANTALLA. 

EL PROGRAMA FINALIZARA 
SI ALGUNO DE ELLOS 
ALCANZA LA PARTE INFERIOR | 
DE LA MISMA. BORRA LA 
LÍNEA PROVISIONAL 

ANTES DE CONTINUAR 


52: 


6 
3 


| 
| 
| 
{ 


GANAR 
Y PERDER 


Esta es la sección que falta para completar el juego. Si el jugador 
consigue eliminar los diez alienígenas aparece una nueva oleada que 
comienza su descenso desde una altura menor y dan menos tiempo 
al jugador para atacarlos. Al finalizar la sección hay algunos trucos 

que hacen el programa más atractivo. Por último se da un listado 

completo. 


INVASORES DESTRUIDOS=10 


BIEN HECHO TERRICOLA 
ESTA VEZ HAS GANADO TU 


PREPARATE PARA NUESTRO 
PROXIMO ATAQUE 
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Cuando el último alienígena ha sido destruido, la subrutina de 
atención a coincidencia de sprites activa el flag GANAR. La línea 
60 del programa de control lo detecta y se sale del bucle 
encargado del movimiento y disparo. La línea 70 del programa 
principal llama entonces a la subrutina Ganar. 


REM Ganar 

PRESET (48,72):COLOR 13: 

PRINT #1, "BIEN HECHO TERRICOLA" 

PRESET (40,88):PRINT #1, "ESTA VEZ HAS GANADO TU" 
FOR D=1 TO 300: NEXT 

PRESET (72,112):PRINT #1, "PREPARATE PARA" 

PRESET (40,128):PRINT #1, "NUESTRO PROXIMO ATAQUE" 
FOR D=1 ТО 500: NEXT 

AL IEN=INVAS: NIVEL=NIVEL+16: GANAR=0 

FOR A=1 TO INVAS 

X (A) =24*A: Y (A) =NIVEL 

NEXT A 

PRESET (48,72):COLOR 1:PRINT#1, "BIEN HECHO TERRIC 
OLA": PRESET (40,88):PRINTH1, "ESTA VEZ HAS GANADO 
ТО": PRESET (72,112) :PRINT#1, "PREPARATE PARA": 
PRESET (40, 128) :PRINT#1, "NUESTRO PROXIMO ATAQUE" 
RETURN 
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Aparece en la pantalla un mensaje de enhorabuena; сото айп 
estamos en modo 2 es necesario localizarlo mediante PRESET e 
imprimirlo con PRINT . Antes de imprimir el siguiente mensaje se 
introduce un retardo mediante un bucle FOR... NEXT. Este 
obliga a contar de 1 a 300 antes de imprimir la segunda parte del 
texto. Tras el segundo mensaje hay otro bucle de retardo para 
dar tiempo al jugador a leer el texto antes de que finalice la 
subrutina y se borre la pantalla. La linea 5070 vuelve a establecer 
el valor de ALIENS a INVAS, desactiva el flag GANAR e 
incrementa NIVEL en 16 unidades de forma que la siguiente 
oleada de alienígenas comience en una posición más baja en la 
pantalla. 


Un bucle FOR... NEXT repone las coordenadas x e y de cada 
alienígena de la misma forma que hicimos en la subrutina de 
inicialización. La línea 5105 borra el mensaje imprimiéndolo de 
nuevo con el color de fondo y RETURN devuelve el control al 
programa principal que entra de nuevo en el bucle activo del juego. 


La subrutina Perder comienza cerrando el fichero 1 mediante 
CLOSE у estableciendo el modo de pantalla 0 (modo texto). 
Además cambia el color del texto y borra la pantalla, imprimiendo 
a continuación un mensaje. Tras un nuevo retardo aparece otro 
mensaje que indica el número de invasores destruidos. 
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6000 REM Perder 
6010 CLOSE #1:SCREEN وه و۵‎ ۵: 001-0۳6 13,1,1:CLS 
6020 LOCATE 16,3,0:PRINT "L O S" 
6030 LOCATE 10,5,0:PRINT "I N V A S O R E 5" 
6849 LOCATE 16,7,9:РКІМТ "H A N" 
6050 LOCATE 9,9,0:PRINT "ñ T E R R I Z ñA D 0" 
6060 FOR Ісі TO 899:NEXT 
60790 LOCATE 13,13,0:PRINT "SIN EMBARGO" 
6080 LOCATE 12,15,0:PRINT "HAS DESTRUIDO" 
6090 LOCATE 17,17,0:PRINT MAR: COLOR 10 
68188 LOCATE 10,19,0:PRINT "NAVES ALIENIGENAS" 
6110 LOCATE 4,22,0: 
INPUT "QUIERES ENFRENTARTE DE NUEVO"5A$ 
6129 IF LEFT$(A$,1)="S" OR LEFT$(A$,1)="s" THEN RUN 
CLS: SCREEN 0,,1:COLOR 1,15, 15: RETURN 


© 
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A continuaciön se ofrece la opciön de jugar de nuevo en la linea 
6110. La linea 6120 estudia la primera letra de la palabra y si esta 
comienza por “s” o “S”, el programa se ejecuta de nuevo. De esta 
forma el jugador puede responder con cualquier palabra que 
comience por “s” para jugar otra vez. Con cualquier otra 
respuesta el ordenador, tras borrar la pantalla, volverä al 


programa principal, donde finalizarä en la linea 90. 


MSX POR FIN PUEDES RODAR EL PROGRAMA COMPLETO. 
CUANDO HAYAS ELIMINADO TODOS LOS INVASORES VERÁS EN 
PANTALLA EL MENSAJE DE LA IZQUIERDA, Y EL JUEGO 
CONTINUARA CON LOS ALIENIGEWAS AVANZANDO DESDE 
UNA POSICIÓN MAS BAJA. SI UN INVASOR ALCANZA EL FONDO 
| DE LA PANTALLA HABRAS PERDIDO, Y APARECERA EN ELLA 

| EL MENSAJE DE LA DERECHA 


INVASORES 
INVASORES DESTRUIDOS=10 HAN 


5 ATERRIZADO 
BIEN HECHO TERRICOLA 
ESTA VEZ HAS GANADO TU SIN EMBARGO 
š HAS DESTRUIDO 
PREPARATE PARA NUESTRO 8 
PROXIMO ATAQUE NABES ALIENIGENAS 


QUIERES ENFRENTARTE DE NUEVO? 


Cuando el jugador es lo suficientemente häbil рага eliminar el 
ültimo alienigena de la pantalla, el flag ganar se activa en la 
subrutina Impacto, y la linea 70 del programa de control llama a 
la subrutina Ganar que comienza en la linea 5000. 


REM Ganar 

INK 5: PRINT AT 6,55 "BIEN HECHO TERRICOLA" 
PRINT AT 8, 4; "ESTA VEZ HAS GANADO TU" 

FOR D=1 TO 200:NEXT D 

PRINT AT 12,8; "FREFARATE PARA" 

PRINT АТ 14, 4; "NUESTRA PROXIMO ATAQUE" 

FOR d=1 TO 400: NEXT d 

LET alienigenas=invasores: LET altura=altura+2: 
LET ganar=09 

FOR а=1 TO invasores 

LET x(a)=a*3: LET y(a)=altura 

NEXT a 

RETURN 
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Las lineas 5010 у 5020 imprimen ип mensje de “enhorabuena” en 
la mitad superior de la pantalla. En la linea 5030 se introduce un 
retardo a base de un bucle FOR... NEXT que obliga a contar de 
1 a 200 antes de imprimir la segunda parte del mensaje. Una vez 
hecho ésto se origina otro retardo del mismo modo para que el 
jugador tenga tiempo suficiente para leer el mensaje antes de que 
la subrutina concluya, borrándose la pantalla para dejarla lista 
para el siguiente ataque alienígena. 


El número de alienígenas es inicializado al valor original de 
invasores en la linea 5070, y el flag ganar es desactivado 
poniéndolo a 0. El valor inicial de altura se ve incrementado en 2 
unidades, lo que provoca que la altura inicial de los alienígenas 
disminuya de modo que cada oleada va siendo más difícil de 
destruir. Puedes modificar esta subrutina de forma que los 
invasores vuelvan a descender desde la altura inicial una vez 
logrado el grado de dificultad que consideres oportuno. 


Un bucle FOR... NEXT restaura las coordenadas x e y de cada 
alienígena de un modo similar al empleado anteriormente en la 
subrutina Inicializar. 


Queda por último definir la subrutina Perder (línea 6000). En ella 
se borra la pantalla y se imprime un mensaje intermitente. Tras un 
pequeño retardo aparece un segundo mensaje que indica al 
jugador su puntuación. La instrucción FLASH 1 intercambia 
alternativamente los colores de la tinta y el papel para lograr el 
efecto de intermitencia. Este efecto se desactiva mediante la 
instrucción FLASH 0. 


La mayoría de los juegos ofrecen al jugador la posibilidad de 
intentarlo de nuevo; esto lo conseguimos en las líneas 6110 a 
6130. Mediante una sentencia INPUT introducimos la respuesta 
desde el teclado, que se almacena en a$ cuando se pulsa 
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REM Perder 

CLS 

INK 5: FLASH 1: PRINT АТ 1,135"L O S” 

PRINT AT 575 ۰1 N ۷ ۸۵ S ORE 5" 

PRINT АТ 5,133"H A N" 

PRINT AT ZA T E R R 1 Z ñ D ۶ FLASH © 
FOR D=1 TO 206:NEXT D 

INK 6: PRINT AT و10‎ 19 "SIN EMBARGO" 

PRINT AT 12,9; "HAS DESTRUIDO” 

INK 2: FLASH 1: PRINT AT 14, 155 ۲۵9۶: FLASH ۵ 
INK 6: PRINT AT 16,7% "NAVES ALIENIGENAS" 
PRINT АТ 20,1: "QUIERES ENFRENTARTE DE NUEVO?" 
INPUT a$ 

IF a$(1)="s" OR a$(1)="S" THEN RUN 

RETURN 
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ENTER. La linea 6130 estudia la primera letra de a$ y si se trata 
de una “s” (tanto maytiscula como minüscula) el programa 
comienza de nuevo. Con cualquier otra respuesta el ordenador 
vuelve al programa de control y finaliza en la linea 90 con la 
sentencia STOP. Puedes probar las subrutinas de ganar y perder 
siguiendo las instrucciones del siguiente cuadro 


SPECTRUM POR FIN PUEDES RODAR EL PROGRAMA COMPLETO. 
CUANDO HAYAS ELIMINADO TODOS LOS INVASORES VERÁS EN 
PANTALLA EL MENSAJE DE LA JZQUIERDA , Y EL JUEGO 
CONTINUARÁ CON LOS ALIENÍGENAS AVANZANDO DESDE UMA 
POSICIÓN MÁS BAJA. SI UN INVASOR ALCANZA EL FONDO 
DE LA PANTALLA HABRÁS PERDIDO, Y APARECERA EN ELLA 
EL MENSAJE DE LA DERECHA 


LOS 
š INVASORES 
INVASORES DESTRUIDOS=10 HAN 


۱ ATERRIZADO 
BIEN HECHO TERRICOLA 
ESTA VEZ HAS GANADO TU | SINEMBARGO 
: HAS DESTRUIDO 
PREPARATE PARA NUESTRO 


8 
PROXIMO ATAQUE NAVES ALIENIGENAS 


QUIERES ENFRENTARTE DE NUEVO? 
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Mejora tu programa 
Tal y como estä ahora tu juego de invasores resulta divertido y 
atrayente. Es dificil eliminar todos los alienigenas, que parecen 
moverse como si tuvieran vida. Sin embargo puedes hacer que el 
juego se parezca más a uno de tipo arcadia si añades algunos 
efectos de sonido bastante sencillos. A continuación se dan 
algunos trucos que puedes añadir al programa para que se 
parezca más a uno profesional y con el que podrás disfrutar tú y 
tus amigos. 


Añade sonido MSX 


Hemos incorporado en el programa los efectos de disparo y 
explosión, ambos basados en el comando SOUND de acceso 
directo al generador de sonido programable. А continuación te 
proponemos tres nuevas sentencias basadas en el comando 
PLAY con las que mejorarás la presentación de tu programa. La 
primera, 8015, ejecuta la melodía de comienzo; las líneas 5030 y 
6060 en realidad sustituyen a sendos bucles de retardo e 
interpretan otras dos melodías. 


50360 FOR D=1 TO 300: NEXT:BEEF:FLAY ۳۲ 1 ۵5 1۳۱5۵6۵۵۵51 1 ACE 
G08L8CO5SL1&G08L8C”" 
6060 BEEP:PLAY ۲۳ ۲9۵51 ۳5۵9601 84۸68 ۰ ۵52840218 ۰ 01 81 688 ۰ ۵۸1 6۵ 


8.A16A2":FOR Ісі 0 NEXT 
8015 BEEP: PLAY A OR тала ааа 
18FEDLS05C7...OSLAGLIOFEFDA" 


SPECTRUM 
Podemos obtener sonido del Spectrum empleando la instrucciön 
ВЕЕР seguida de dos números, uno gobierna la duración del 
sonido y el otro su tono. No obstante debes tener mucho cuidado 
con los sonidos que incorpores al programa, pues pueden retrasar 
la velocidad del juego hasta un nivel inaceptable. La línea 4005 
origina un pequeño “beep” cuando se intercepta un alienígena en 
la subrutina Impacto. Las líneas 5030 y 6060 son ligeramente 
diferentes pues no son una incorporación, sino una sustitución. En 
este caso las instrucciones BEEP ocupan el lugar de los bucles de 
retardo de las subrutinas Ganar y Perder. La línea 7055 advierte 
del comienzo del juego. 


‘4005 BEEP .05,-10 
5038 BEEP .5,2: BEEP .5,10: BEEP 1,20 


6060 BEEP 2,-10 
7055 FOR b=1 TO 20: BEEP .1,20: NEXT b 


Graficos extra MSX 


Podemos mejorar atin mas los gräficos afiadiendo una explosiön 
cuando derribemos un alienigena. Para ello definiremos el sprite 
explosiön con el método usual —lineas 8215 у 7025. El caräcter se 
imprime en la linea 4045 y tras un pequefio retardo se borra en la 
línea 4046. Por último, la línea 9040 contiene los datos necesarios 
para su definición. 


РОТ SPRITE 0, (XM,YM+1),6: FOR 1=1 TO 150: NEXT 
4046 PUT SPRITE 9, (0,2929) ,9 

7025 SPRITES (@) =ВФ 

8215 FOR Ісі TO 8:READ N: B$=B$+CHR$ (N) : NEXT: REM Explos 
DATA 84,1,136,56,157,16,66,16:REM explosion 


AL DERRIBAR UN INVASOR 
VEREMOS LA EXPLOSION DE LA 
FIGURA DURANTE UN BREVE 

INTERUALO DE TIEMPO 
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Almacena tus programas 

Una vez hayas tecleado el programa por completo, conviene 
almacenarlo en cinta. Las instrucciones para guardar programas 
varian muy poco de una mäquina a otra, y debes consultar el 
manual de usuario para las instrucciones concretas. A 
continuaciön se da el listado completo del programa “Invasores 
del Espacio” para ambos tipos de ordenadores. En él se han 
incorporado las sugerencias de la página anterior. 


Listados de los programas 


REM Invasores 
GOSUB 8006:REM Inicializar 

GOSUB 7000: REM Pantalla 

GOSUB 1000:КЕМ Alienigena 

БОБОВ 2000: КЕМ Jugador 

IF (GANAR OR PERDER)=1 THEN GOTO 78 ELSE GOTO 49 
IF GANAR=1 THEN GOSUB 5000:GOTO 46 

БОБОВ 6000: REM Perder 

END 

REM Alienigena 

R=INT(RND(1)+*(INVAS))+1: 1۲ Y(R)=209 THEN RETURN 
X (R) =X (К) +8%(INT(RND(1)+3)-1) 

Y (R)=Y (R) +8 

IF X(R)>248 THEN X(R)=248 

IF X(R)<16 THEN X(R)=16 

IF Y(R)=184 THEN PERDER=1 

PUT SPRITE К, (X(R),Y(R)),5 

RETURN 

REM Jugador 

КФ=ІМКЕҮФ: IF R$="" THEN R$="X" 

IF R$=" " THEN GOSUB 3000: REM Laser 

IF ((ASC(R$)=29) AND XP>0) THEN XP=XP-8: 

IF ХР<16 THEN XP=16 

IF (ASC(R$)=28) AND XP<256 THEN XP=XF+8: 

IF XP>248 THEN XP=248 

PUT SPRITE 12, (XP,184),8 

RETURN 

REM Laser 

YM=184: XM=XP:GOSUB 3500 

YM=YM-8 

PUT SPRITE 11, (ХМ,ҮМ),11 

IF YM=0 THEN PUT SPRITE 11, (0,209) : AUX=1: RETURN. 
IF AUX=1 THEN SPRITE ON 

GOTO 3020 

SOUND 0,128:SOUND 1,1:SOUND 2,0:SOUND 3,0: 
SOUND 4,0: SOUND 5,0: SOUND 6,1:SOUND 7,54: 

SOUND 8,16:SOUND 9,0:SOUND 10,0:SOUND 11,251: 
SOUND 12,10:SOUND 13,15 

RETURN 

REM Coincidencia de sprites 

SPRITE OFF: COLIS=06 

FOR I=1 TO INVAS 


THEN GOTO 4050 


Continuación MSX 


4040 


4045 
4046 
46050 
4060 
4070 
4080 
4090 
4100 


4110 
4500 


4510 
5000 
5010 


5020 
5030 


5040 
5959 
5060 
5070 
5080 
5090 
5100 
5105 


5119 
6000 
6010 
6929 
6939 
6040 
6959 
6060 


6070 
6080 
60790 
6100 
6110 


6120 
6130 
7000 
7010 
7920 
7025 
7959 
7040 
7050 


7060 
7970 


Ү(І)-299:РИТ SPRITE I, (0,209): I=INVAS:GOSUB 4500: 
COLIS=1 

PUT SPRITE 0, (XM,YM+1),6:FOR 121 ۰ ۲ 

PUT SPRITE بو‎ (0,209),9 

NEXT I 

AUX=COLIS 

IF COLIS=@ THEN RETURN 

ALIENS=ALIENS-1: MAR=MAR+1 

IF ALIENS=® THEN GANAR=1 

PRESET (200,0):COLOR 1:PRINT#1, MAR-1: 

PRESET (200,9) :COLOR 15: PRINT#1,MAR 

RETURN 

SOUND 8,9:SOUND 1,0:SOUND 2,9:S0UND 3,0:SOUND 4,0: 
SOUND 5,0: SOUND 6,31:SOUND 7,7:SOUND 8,16: 

SOUND 9, 16: SOUND 19,16:SOUND 11,0:S0UND 12,60: 
SOUND 13,0 


RETURN 
REM Ganar 
PRESET (48,72): COLOR 13: 


PRINT #1, "BIEN HECHO TERRICOLA” 

PRESET (40,88):РКІМТ #1, "ESTA VEZ HAS GANADO TU" 
FOR D=1 TO 3@@:NEXT: BEEP:PLAY "Ti00S1M6000005LÍGCE 
GO46L8COSL16G06L8C" 

PRESET (72,112):PRINT #1, "PREPARATE PARA” 

PRESET (4@,128):PRINT #1, "NUESTRO PROXIMO ATAQUE" 
FOR D=1 TO 509: МЕХТ 

AL IEN=INVAS: NIVEL=NIVEL+16: GANAR=9 

FOR A=1 TO INVAS 

X (A) =24x*A: Y (A) =NIVEL 

NEXT A 

PRESET (48,72):COLOR 1:PRINT#1, "BIEN HECHO TERRIC 
ОА": РКЕЅЕТ (40,88): РКІМТ#1, "ESTA VEZ HAS GANADO 
TU":PRESET (72,112):PRINTH1, "PREPARATE PARA": 
PRESET (48, 128) :PRINT#1, "NUESTRO PROXIMO ATAQUE" 
RETURN 

REM Perder 

CLOSE #1: SCREEN 9,0,9:C0OL0OR 13,1,1:CLS 

LOCATE 16,3,0:PRINT "L O S" 

LOCATE 10,5,0:PRINT "INVASORE ВБ" 

LOCATE 16,7,0:PRINT "Н A N" 

LOCATE 9,9,0:PRINT "A T E R R I Z ñ D о" 
BEEP:PLAY "T90S1M500001A4A8. A32A402C8.01B16B8.A16A 
8.A16A2":FOR 1=1 TO 2800:NEXT 

LOCATE 13,13,0:PRINT "SIN EMBARGO" 

LOCATE 12,15,0:PRINT "HAS DESTRUIDO” 

LOCATE 17,17,0:PRINT MAR: COLOR ۵ 

LOCATE 109,19,0:PRINT "NAVES ALIENIGENAS" 

LOCATE 4,22,0: 

INPUT "QUIERES ENFRENTARTE DE NUEVO"; АФ 

IF LEFT$(A$,1)="S" OR LEFT$(A$,1)="s" THEN RUN 
CLS: SCREEN 0,,1:COLOR 1,15,15: RETURN 

REM Pantalla 

SCREEN وه و2‎ 9: COLOR 15,1,1:CLS 

SPRITE$ (12) =N$: SPRITES (11)=M% 

SPRITES (0)=B$ 

FOR I=1 TO 16:SPRITES(1)=A$: NEXT 

FOR 5=1 TO 60 

X=INT (RND (5) #259) : Y=INT(RND (5) #199) : 

PSET (X,Y),RND(1)*i5 

NEXT S 

CIRCLE (52,28),16,9: CIRCLE (44,28),16,9,4.95075, 
1.32645: PAINT (44,28),9 
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Continuación MSX 


7080 


7090 


7100 


7110 


7120 
8600 
8919 
8915 


8920 


8030 


8040 
8050 
8060 
8070 


вове 
8090 


8190 
8119 
8120 
8150 


8140 


8150 
81650 
8170 
8180 
8190 
8200 
8210 
8215 
8220 
8230 
8240 
9000 
9010 
9020 
92050 
9040 


CIRCLE (192,42),25,7: CIRCLE (180,42),24,7,4.95673, 
1.32645:PAINT (180,42),7 

CIRCLE (0,192),60,10,0,-3.1459/2: 

LINE (0,192)-(60,192),10:PAINT (5,190),10,10 
PRESET (200,144) و‎ 4: DRAW"G32F16E32H16R8F 1 ٩2 
L8":PAINT (192,168),4,4 

OPEN "GRP:" AS #1:PRESET (32,0): 

PRINT #1, "INVASORES DESTRUIDOS: "; MAR 

RETURN 

REM Inicializar 

SCREEN 0,0,0:COLOR 15,1,1:КЕҮ OFF:CLS 

ВЕЕР:РІ АҮ "T16058M6000005L4C6GL 10FEDL6D6C7.. . OSL4GL 
10FEDL606C7. . . 051461 1ФҒЕҒр4" 

LOCATE 2,5,9: 

PRINT "ERES UN PILOTO SOLITARIO ENCARGADO" 

LOCATE 4,6,9: 

PRINT "DE PROTEGER EL PLANETA TIERRA.” 

LOCATE 6,7,0:РКІМТ "EN UNOS INSTANTES ESTARAS" 
LOCATE 5,8,0:PRINT "BAJO EL ATAQUE DE INVASORES" 
LOCATE 9,9,0:PRINT "DEL PLANETA VARGON." 

LOCATE 3,11,0: 

PRINT "TU MISION ES EVITAR QUE ATERRICEN" 

LOCATE 7,12,@:PRINT "LAS NAVES VARGONIANAS. " 
LOCATE 1,14,0: 

PRINT "EMPLEA EL CURSOR PARA MOVER TU NAVE" 
LOCATE 6,16,0:PRINT "PULSA LA BARRA ESPACIADORA" 
LOCATE 8,17,0:PRINT "PARA DISPARAR EL LASER" 
LOCATE 6,19,0:PRINT "PULSA CUALQUIER TECLA PARA" 
LOCATE 4,20,0: 

PRINT "ENTABLAR COMBATE CON EL ENEMIGO” 

PERDER=90: GANAR=90: MAR=@: ХР= 120: NIVEL=8: INVAS=10: 
ALIENS=INVAS: COLIS=0: AUX=1 

DIM X(INVAS):DIM Y(INVAS) 

FOR A=1 TO INVAS 

X (A) =24#A: Y (A) =NIVEL 

NEXT A 

FOR I=1 TO 8:READ N:M$=M$+CHR$ (N) :NEXT:REM Misil 
FOR 1=1 TO 8:READ N: N$=N$+CHR$ (N) : NEXT: REM Nave 
FOR I=1 TO 8:READ N: A$=4$+CHR$ (N) :NEXT:REM Invasor 
FOR I=1 TO 8:READ N: B$=B$+CHR$ (N) :NEXT:REM Explos 
ON SPRITE GOSUB 4000:SPRITE OFF 

Q$=INPUT$ (1) 

RETURN 

REM Datos sprites 

DATA 16,165,56,16,16,165,56,108:REM Misil 

DATA 16,56, 16, 186, و186‎ 186,238,108: REM Nave 

DATA 36,36,126,255,153,255,90,66: REM Invasor 

DATA 84,1, وطط و15 و157 و56 و136‎ 15:۳۲ explosion 


SPECTRUM 


= 


5 REM Invasores 

10 GO SUB 8000: REM Inicializar 

20 GO SUB 7000: REM Pantalla 

30 GO SUB 1000: REM Alienigena 

40 GO SUB 2000: REM Jugador 

50 IF (ganar OR perder)=1 THEN GO TO 78 
40 GO TO 30 ° 
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Continuaciön Spectrum 


79 
89 
90 
1000 
1019 


1020 
1030 
1040 
1050 
1060 
1070 
1989 
1999 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 


3080 
3090 
3100 
4000 
4005 
4010 
4020 
4030 
4040 
4050 


4060 
4070 
4080 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 


5080 
5090 
5100 
5110 
водо 
6010 
6020 
6030 
6040 


IF ganar=1 THEN GO SUB 5090: GO TO 20 

GO SUB 6000: REM Perder 

CLS : PAPER 7: BORDER 7: INK 0: STOP 

REM Alienigena 

LET r=INT (RND*invasores)+1: IF y(r)=22 THEN 
RETURN 

PAPER O: PRINT AT y(r),x(rys" " 

LET x (r)=x ({r)+INT (RND*3)-i 

LET y(r)=y(r)+1 

IF x(r)>30 THEN LET x(r)=30 

IF x(r)<i THEN LET x(r)=1 

IF y(r)=21 THEN LET perder=1 

INK ó: PRINT АТ y(r),x(tr)33 "ay" 

RETURN 

REM Jugador 

LET 1$=INKEY$ 

IF 1$="m" OR 1$="M" THEN GO SUB 3000: REM Laser 
IF (1$="z" OR 1%="2") AND xp>@ THEN LET xp=xp-1 
IF (1$="x" OR 1$="X") AND xp<29 THEN LET xp=xp+1 
INK 2: PRINT AT 21,xp3" А" 

RETURN 

REM Laser 

LET ym=21: LET xm=xp+1 

LET ym=ym-1 

IF POINT (xm*8,(21-ym)x*8+2)=1 THEN LET colest=1 
IF POINT (xm*#8, (21-ym)*8+3)=1 THEN LET colalien=1 
INK 7: PRINT AT ут, хт; "!" 

PAPER 0: PRINT AT ym,xm3" " 

IF colest=1 THEN PLOT xm*8, (21—ym)*8+2: 

LET colest=® 

IF colalien=i THEN GO SUB 4000 

IF ym=1 THEN RETURN 

60 TO 3020 

REM Impacto 

BEEP .05,-10 

FOR a=i TO invasores 

IF x(a)<>xm OR yla)<>ym THEN GO TO 4040 

LET y(a)=22: LET a=invasores 

NEXT a 

LET alienigenas=alienigenas-i: LET puntos=puntos+1 
: LET colalien=0: LET ym=1 

IF alienigenas=0 THEN LET ganar=1 

INK 7: PRINT AT Ө, 258 ۵ 

RETURN 

REM Ganar 

INK 5: PRINT AT 6,5: "ВІЕМ HECHO TERRICOLA" 

PRINT AT 8,45 "ESTA VEZ HAS GANADO TU" 

BEEP .5,2: ВЕЕР ۰5:19: BEEP 1,20 

PRINT АТ 12,8; "FREFARATE PARA" 

PRINT АТ 14, 4; "NUESTRA PROXIMO ATAQUE” 

FOR d=1 TO 4۵۵: NEXT d 

LET alienigenas=invasores: LET altura=altura+2: 
LET ganar=09 

FOR а=1 TO invasores 

LET x(a)=a#3: LET y(a)=altura 

NEXT a 

RETURN 

REM Perder 

CLS» : 

INK 5: FLASH 1: PRINT АТ 1,15; "1 O S" 

PRINT AT 5,73" 1 NV AR S ORE 5" 

PRINT АТ 5,15; "Н А N" 
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Continuaciön Spectrum 


6059 
дье 
6979 
6989 
6099 
6100 
6119 
61209 
6150 
6140 
7000 
7010 
7020 
7030 
7040 
7050 
7055 
7060 
8999 
solo 
8020 
8030 
8040 
8959 
8060 
8070 
gogo 
8070 
8199 
8119 
8129 
8125 
8150 


8149 
8150 
8160 
8170 
8189 
8198 
8298 
8219 
8220 
8230 
8249 
8259 
3250 
8270 


PRINT АТ 7,65"A TERR I Z ñ D O": FLASH о 
BEEP 2,-10 
INK 6: PRINT AT 10,10; "SIN EMBARGO" 


PRINT АТ 12,9; "HAS DESTRUIDO” 


INK 2: FLASH 1: PRINT АТ 14,155puntos: FLASH ۵ 
INK é: PRINT АТ 16,7: "NAVES ALIENIGENAS" 

PRINT AT 20,1; "QUIERES ENFRENTARTE DE NUEVO?" 
INPUT а% 

IF a$(1)="s" OR a$(1)="S" THEN RUN 

RETURN 

REM Pantalla 

CLS 


FOR s=1 TO ۵ 

PLOT 8*INT (RND*32),8* INT (RND*21)+10 

NEXT s 

INK 7: PRINT AT 0,55" INVASORES DESTRUIDOS="5 puntos 
FOR b=1 TO 20: BEEP .1,20: NEXT b 

RETURN 

REM Inicializar 

PAPER Ө: INK 7: BORDER 0: CLS 

PRINT АТ 1,4; ۳۶۳ ۵5 un piloto solitario" 

PRINT AT 2,1% "protegiendo el planeta Tierra." 
PRINT AT 5,1; "Еп unos instantes estaras bajo" 
PRINT AT 4,3;"el ataque de invasores del" 
PRINT AT 5,9; "planeta VARGON. " 

PRINT AT 6,45"Tu mision es evitar que" 

PRINT AT 7,95 "aterricen las naves vargonianas." 
PRINT AT 1625 ۳۳ 2* MUEVE LA NAVE A LA IZDA" 
PRINT АТ 12 25 ۰۳ ۲ MUEVE LA NAVE A LA DCHA" 
PRINT AT 14,4; "PULSA 7M? PARA DISPARAR" 

PRINT AT 20,25"Pulsa cualquier tecla para" 
PRINT AT 21,0; "entablar combate con el enemigo” 
LET perder=®: LET ganar=@: LET puntos=0: 

LET colalien=0: LET colest=0: LET xp=16: 

LET altura=1: LET invasores=10: 

LET alienigenas=invasores 

DIM x(invasores): DIM y(invasores) 

FOR a=1 TO invasores 

LET x(a)=ax*3: LET y(a)=altura 

NEXT a 

РОКЕ 45348, BIN 001001009 

POKE 65369,BIN 90100190 

POKE £5370,BIN 091111110 

POKE 65371,BIN 11111111 

POKE 65372,BIN 10011001 

POKE 65373,BIN 11111111 

POKE 65374,BIN 01011010 

POKE &5275,BIN 1 0 

LET R$=INKEY$: IF R$="" THEN GO TO 8260 


RETURN 
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ESTA LA NUEVA. SERIE IAE UNA E ee 
AL ARTE DE PROGRAMAR | ORDENADORES. CADA LIBRO 
N ENSEÑA. CÓMO | ESTRUCTURAR UN PROGRAMA. EN== = 
RUTINAS. Y AL MISMO TIEMPO. EXPLICA y ANALIZA 


10 QUE SE LE PIDE AL ORDENADOR QUE HAGA Y 


` pOR QUÉ. £ 


= - AE ADEMÁS f ES | DIVERTIDO! CADA LIBRO CONTIENE 
COMO MINIMO UN JUEGO DE ORDENADOR, 
APASIONANTE ү ORIGINAL, ESTRUCTURADO DE 
TAL MODO QUE PUEDE AMPLIARSE o REDUCIRSE, 
DE ACUERDO CON EL NIVEL O LOS DESEOS DEL 


“USUARIO 


ies TÍTULOS DE LA SERIE 
áficos - Iniciació 
۱ п al basic = El D 
anco de datos 


Animació 1 
с1бп - Sonido - Gräficos möviles 


